home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / mapsrc.lha / macros / newopenfile < prev    next >
Encoding:
Text File  |  1980-02-19  |  146 b   |  10 lines
  1.  
  2. newopenfile: macro            ;a0 = filename
  3.  
  4.     move.l a0,d1
  5.     move.l #1006,d2
  6.     move.l dosbase(a5),a6
  7.     jsr -30(a6)
  8.     move.l d0,diskopt_currantfile(a5)
  9.     endm
  10.